Visual Basic Controls

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / fsscl20d / FORM4.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1999-04-03 | 15.1 KB | 475 lines

VERSION 5.00 Object = "{75C038D3-EA57-11D2-A3BC-000000000000}#1.0#0"; "fsScroll5D.ocx" Begin VB.Form frmLists Caption = "Lists" ClientHeight = 3750 ClientLeft = 60 ClientTop = 345 ClientWidth = 7845 LinkTopic = "Form1" ScaleHeight = 3750 ScaleWidth = 7845 StartUpPosition = 3 'Windows Default Begin FishheadScroll.fsScroll fsScroll3 Height = 3000 Left = 4290 TabIndex = 40 ToolTipText = "fsScroll as an image list" Top = 540 Width = 2085 _ExtentX = 3678 _ExtentY = 5292 MouseIcon = "Form4.frx":0000 Begin VB.Image Image1 Height = 2745 Index = 5 Left = 510 Picture = "Form4.frx":031A Top = 5100 Width = 525 End Begin VB.Image Image1 Height = 480 Index = 4 Left = 600 Picture = "Form4.frx":11E8 Top = 4290 Width = 480 End Begin VB.Image Image1 Height = 480 Index = 3 Left = 570 Picture = "Form4.frx":162A Top = 3480 Width = 480 End Begin VB.Image Image1 Height = 480 Index = 2 Left = 570 Picture = "Form4.frx":1A6C Top = 2670 Width = 480 End Begin VB.Image Image1 Height = 480 Index = 1 Left = 570 Picture = "Form4.frx":1EAE Top = 1530 Width = 480 End Begin VB.Image Image1 Height = 870 Index = 0 Left = 420 Picture = "Form4.frx":22F0 Stretch = -1 'True Top = 390 Width = 930 End End Begin FishheadScroll.fsScroll fsScroll2 Height = 3000 Left = 2220 TabIndex = 15 ToolTipText = "fsScroll as a checklist" Top = 540 Width = 1815 _ExtentX = 3201 _ExtentY = 5292 AdjustLeft = 300 MouseIcon = "Form4.frx":2423 Begin VB.CheckBox Check1 Caption = "$3,000" Height = 315 Index = 22 Left = 4200 TabIndex = 38 Top = 1000 Width = 1000 End Begin VB.CheckBox Check1 Caption = "$2,000" Height = 315 Index = 21 Left = 4200 TabIndex = 37 Top = 600 Width = 1000 End Begin VB.CheckBox Check1 Caption = "$1,000" Height = 315 Index = 20 Left = 4200 TabIndex = 36 Top = 200 Width = 1000 End Begin VB.CheckBox Check1 Caption = "10" Height = 315 Index = 19 Left = 2100 TabIndex = 35 Top = 3800 Width = 750 End Begin VB.CheckBox Check1 Caption = "9" Height = 315 Index = 18 Left = 2100 TabIndex = 34 Top = 3400 Width = 750 End Begin VB.CheckBox Check1 Caption = "8" Height = 315 Index = 17 Left = 2100 TabIndex = 33 Top = 3000 Width = 750 End Begin VB.CheckBox Check1 Caption = "7" Height = 315 Index = 16 Left = 2100 TabIndex = 32 Top = 2600 Width = 750 End Begin VB.CheckBox Check1 Caption = "6" Height = 315 Index = 15 Left = 2100 TabIndex = 31 Top = 2200 Width = 750 End Begin VB.CheckBox Check1 Caption = "5" Height = 315 Index = 14 Left = 2100 TabIndex = 30 Top = 1800 Width = 750 End Begin VB.CheckBox Check1 Caption = "4" Height = 315 Index = 13 Left = 2100 TabIndex = 29 Top = 1400 Width = 750 End Begin VB.CheckBox Check1 Caption = "3" Height = 315 Index = 12 Left = 2100 TabIndex = 28 Top = 1000 Width = 750 End Begin VB.CheckBox Check1 Caption = "2" Height = 315 Index = 11 Left = 2100 TabIndex = 27 Top = 600 Width = 750 End Begin VB.CheckBox Check1 Caption = "1" Height = 315 Index = 10 Left = 2100 TabIndex = 26 Top = 200 Width = 750 End Begin VB.CheckBox Check1 Caption = "Ten" Height = 315 Index = 9 Left = 180 TabIndex = 25 Top = 3800 Width = 1000 End Begin VB.CheckBox Check1 Caption = "Nine" Height = 315 Index = 8 Left = 180 TabIndex = 24 Top = 3400 Width = 1000 End Begin VB.CheckBox Check1 Caption = "Eight" Height = 315 Index = 7 Left = 180 TabIndex = 23 Top = 3000 Width = 1000 End Begin VB.CheckBox Check1 Caption = "Seven" Height = 315 Index = 6 Left = 180 TabIndex = 22 Top = 2600 Width = 1000 End Begin VB.CheckBox Check1 Caption = "Six" Height = 315 Index = 5 Left = 180 TabIndex = 21 Top = 2200 Width = 1000 End Begin VB.CheckBox Check1 Caption = "Five" Height = 315 Index = 4 Left = 180 TabIndex = 20 Top = 1800 Width = 1000 End Begin VB.CheckBox Check1 Caption = "Four" Height = 315 Index = 3 Left = 180 TabIndex = 19 Top = 1400 Width = 1000 End Begin VB.CheckBox Check1 Caption = "Three" Height = 315 Index = 2 Left = 180 TabIndex = 18 Top = 1000 Width = 1000 End Begin VB.CheckBox Check1 Caption = "Two" Height = 315 Index = 1 Left = 180 TabIndex = 17 Top = 600 Width = 1000 End Begin VB.CheckBox Check1 Caption = "One" Height = 315 Index = 0 Left = 180 TabIndex = 16 Top = 200 Width = 1000 End End Begin FishheadScroll.fsScroll fsScroll1 Height = 3000 Left = 120 TabIndex = 2 ToolTipText = "fsScroll as an option list" Top = 540 Width = 1905 _ExtentX = 3360 _ExtentY = 5292 MouseIcon = "Form4.frx":273D Begin VB.OptionButton Option1 BackColor = &H00808000& Caption = "&Aqua" ForeColor = &H00000000& Height = 315 Index = 10 Left = 180 TabIndex = 13 Top = 4200 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H00008000& Caption = "Dark Gree&n" ForeColor = &H00000000& Height = 315 Index = 9 Left = 180 TabIndex = 12 Top = 3800 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H00808080& Caption = "&Dark Grey" ForeColor = &H00000000& Height = 315 Index = 7 Left = 180 TabIndex = 10 Top = 3000 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Gre&y" ForeColor = &H00000000& Height = 315 Index = 6 Left = 180 TabIndex = 9 Top = 2600 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H00FF00FF& Caption = "&Purple" ForeColor = &H00000000& Height = 315 Index = 5 Left = 180 TabIndex = 8 Top = 2200 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H00000000& Caption = "B&lack" ForeColor = &H00FFFFFF& Height = 315 Index = 8 Left = 180 TabIndex = 11 Top = 3400 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H00FFFFFF& Caption = "&White" ForeColor = &H00000000& Height = 315 Index = 0 Left = 180 TabIndex = 3 Top = 200 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H0000FF00& Caption = "&Green" ForeColor = &H00000000& Height = 315 Index = 2 Left = 180 TabIndex = 5 Top = 1000 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H00FF0000& Caption = "&Blue" ForeColor = &H00000000& Height = 315 Index = 4 Left = 180 TabIndex = 7 Top = 1800 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H0000FFFF& Caption = "&Yellow" ForeColor = &H00000000& Height = 315 Index = 1 Left = 180 TabIndex = 4 Top = 600 Width = 1200 End Begin VB.OptionButton Option1 BackColor = &H000000FF& Caption = "&Red" ForeColor = &H00000000& Height = 315 Index = 3 Left = 180 TabIndex = 6 Top = 1400 Width = 1200 End End Begin VB.CommandButton Command1 Caption = "OK" Height = 315 Left = 6570 TabIndex = 0 Top = 150 Width = 1200 End Begin VB.Label Label3 Caption = "fsScroll as an image list." Height = 285 Left = 4320 TabIndex = 39 Top = 180 Width = 2085 End Begin VB.Label Label2 Caption = "fsScroll as a checklist." Height = 285 Left = 2250 TabIndex = 14 Top = 180 Width = 1755 End Begin VB.Label Label1 Caption = "fsScroll as an option list." Height = 285 Left = 150 TabIndex = 1 Top = 180 Width = 1875 End Attribute VB_Name = "frmLists" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit ' ******************************************************** ' ** Fishhead Software ' ******************************************************** ' ** This sample shows how to create a scrollable lists. ' ** Notice: there is no code on programmers part to make ' ** fsScroll work in this mode. ' ******************************************************** Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) Set frmLists = Nothing End Sub